home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Rexx / InsertVersion.bed < prev    next >
Encoding:
Text File  |  1998-06-24  |  504 b   |  27 lines
  1. /*
  2. ** $VER: InsertVersion.bed 1.0 (02.01.96)
  3. **
  4. ** Insert an AmigaDOS version string at the current cursor position,
  5. ** taking the current filename and date.
  6. **
  7. ** Written by Chris Bailey
  8. ** Modified by Martin Taillefer
  9. ** Modified by Marco Negri
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. GetFileInfo
  15. PARSE VAR RESULT . . '"'name'"'
  16.  
  17. date = DATE(e);
  18.  
  19. day = SUBSTR(date,1,2)
  20. month = SUBSTR(date,4,2)
  21. year = SUBSTR(date,7,2)
  22.  
  23. str = "$VER: " || name || " .0 (" || day || "." || month || "." || year || ")"
  24. Text str
  25.  
  26. MoveLeft 13
  27.